home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok55 / m2midi / midisupport.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  35 lines
  1. (***************************************************************************
  2.   :Program.       MidiSupport.def
  3.   :Author.        Jürgen Zimmermann
  4.   :Address.       Ringstraße 6, 6719 Altleiningen, West-Germany
  5.   :Phone.         06356/1456
  6.   :ShortCut.      [JnZ]
  7.   :Support.       -
  8.   :Version.       1.1
  9.   :Date.          8. May 1991
  10.   :Copyright.     PD
  11.   :Language.      MODULA-II
  12.   :Translator.    M2Amiga 4.0d
  13.   :Contents.      Eine Modulimplementation der "Midi-Marcos" (C!) für
  14.   :Contents.      Modula-2 User
  15.   :Remark.        Ich würde mich sehr über Kontakt mit anderen M2Amiga-Usern
  16.   :Remark.        und MIDI-Freaks freuen.
  17.   :Usage.         Siehe Anleitung für die Midi-Library (anbei!)
  18. ****************************************************************************)
  19.  
  20. DEFINITION MODULE MidiSupport;
  21.  
  22.  
  23. PROCEDURE MidiHiByte(data: CARDINAL): SHORTCARD;
  24.  
  25. PROCEDURE MidiLoByte(data: CARDINAL): SHORTCARD;
  26.  
  27. PROCEDURE MidiWord(hi, lo: SHORTCARD): CARDINAL;
  28.  
  29. PROCEDURE SplitMidiID(id: LONGCARD;
  30.                       VAR id0, id1, id2: SHORTCARD);
  31.  
  32. PROCEDURE MakeMidiID(id0,id1,id2: SHORTCARD): LONGCARD;
  33.  
  34. END MidiSupport.
  35.